#coding:utf-8
from openpyxl import workbook
from openpyxl import load_workbook
from requests_html import HTMLSession
import requests
import re
#创建一个Excle对象
wb = workbook.Workbook()
#获取当前操作的表对象
ws = wb.active
#往表中写入数据，以列表的形式
ws.append(['链接名','网址'])
#获取链接
session = HTMLSession()
url = 'https://www.runoob.com/'
sel = 'a'
r = session.get(url)
results = r.html.find(sel)
text = [] #链接名
href = [] #链接地址
for i in results:
    #print(i)
    #查找文本不为空的a标签
    if i.text !='': 
        #查找链接不为空的
        if len(list(i.absolute_links))!=0:
            text.append(i.text)
            href.append(list(i.absolute_links)[0])
for i in range(len(text)):
    ws.append([text[i],str(href[i])])
#存入所有信息，保存为xxx文件
wb.save('test.xlsx')